#!/usr/bin/perl -w 

use blib;
use Prawda;

#$test = Prawda::hello();
my $tmp_ref=Prawda::read_grammar('/usr/local/share/prawda','grammar/en_ru','англо_русский');

foreach my $key (keys %$tmp_ref)
{
#    print  "$key => $tmp_ref->{$key}\n\n";
    print  "\n$key => ";
    print join " | "=> @{$tmp_ref->{$key}} if $key eq 'array';
    print  unpack( "A*",$tmp_ref->{$key} ) if $key eq 'lang_name';
    print "\n";
}

$tmp_ref=Prawda::translate('book book book');

foreach my $key (keys %$tmp_ref)
{
#    print  "$key => $tmp_ref->{$key}\n\n";
    print  "\n$key => ";
    print join " | "=> @{$tmp_ref->{$key}} if $key eq 'array';
    print  unpack( "A*",$tmp_ref->{$key} ) if $key eq 'lang_name';
    print "\n";
}


#print "$test\n";
#print "$buf\n";

